home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / icondeluxev1.1reg.lha / IconDeluxe / IDInstall < prev    next >
Text File  |  1995-09-05  |  4KB  |  145 lines
  1. (complete 0)
  2.  
  3. ;Check kickver
  4. (if (< (/ (getversion) 65536) 37)
  5.    (abort ("\nYou must have kickstart 2.04+ to run Icon Deluxe")
  6.    )
  7. )
  8.  
  9. (set sdir (pathonly @icon))
  10.  
  11. (set @default-dest "SYS:Tools")
  12.  
  13. (set ID_dest (askdir
  14.       (prompt "Where should Icon Deluxe be installed?")
  15.       (help "Select a drawer where you want to install Icon Deluxe")
  16.       (default @default-dest)
  17.    )
  18. )
  19. (set ans (askbool 
  20.    (
  21.       (prompt "\nDo you want to make a new drawer called Icon Deluxe?  "
  22.                "(Please note that the documentation is the only other "
  23.                "file, and it may be placed elsewhere if you wish)")
  24.          (help "")
  25.       )
  26.    )
  27. )
  28. (if (= 1 ans)
  29.    (
  30.       (makedir (tackon ID_dest "Icon Deluxe") (infos))
  31.       (set ID_dest (tackon ID_dest "Icon Deluxe"))
  32.    )
  33. )
  34.  
  35. (set @default-dest ID_dest)
  36.  
  37. (working ("Copying Icon Deluxe"))
  38. (copyfiles
  39.    (source (tackon sdir "IconDeluxe"))
  40.    (dest ID_dest)
  41.    (help @copyfiles-help)
  42.    (infos)
  43. )
  44. (complete 40)
  45. (set Doc_dest (askdir
  46.       (prompt "Where should Icon Deluxe's documentation be installed?")
  47.       (help "Select a drawer where you want to install the docs")
  48.       (default @default-dest)
  49.    )
  50. )
  51. (copyfiles
  52.    (source (tackon sdir "IconDeluxe.guide"))
  53.    (dest Doc_dest)
  54.    (help @copyfiles-help)
  55.    (infos)
  56. )
  57. (complete 50)
  58. (copyfiles
  59.    (source (tackon sdir "IDSetTT"))
  60.    (dest "T:")
  61.    (help @copyfiles-help)
  62.    (infos)
  63. )
  64. (run "T:IDSetTT >CON:0/0/400/100/IDSetTT/AUTO/CLOSE/WAIT \"#1@"
  65.    (tackon ID_dest "IconDeluxe") "\" \"#2@" 
  66.    (tackon Doc_dest "IconDeluxe.guide") "\"")
  67. (run "delete T:IDSetTT")
  68. (if (exists "S:IDHelpFile"))
  69.    (
  70.       (run "delete S:IDHelpFile")
  71.    )
  72. (if (exists "ENV:IDDataFile"))
  73.    (
  74.       (run "delete ENV:IDDataFile")
  75.    )
  76. (if (exists "ENVARC:IDDataFile"))
  77.    (
  78.       (run "delete ENVARC:IDDataFile")
  79.    )
  80. (complete 60)
  81. (if (exists (tackon sdir "Source"))
  82.    (
  83.       (set ans (askbool
  84.          (
  85.             (prompt "Do you wish to also install the source code in "
  86.                     ID_dest"?  I recommend keeping it elsewhere.")
  87.             (help "If you select no, then you will be able to choose "
  88.                   "another location for the source code, but it will be "
  89.                   "necessary to place a second copy of the Icon Deluxe "
  90.                   "executable there.  This is advantageous because it "
  91.                   "allows you to have a copy that you're working on while "
  92.                   "maintaining a fully functional version in" ID_dest ".")
  93.          )
  94.       ))
  95.       (if (= 1 ans)
  96.          (
  97.             (working ("Copying source code"))
  98.             (copyfiles
  99.                (source (tackon sdir "Source/"))
  100.                (dest (tackon ID_dest "Source"))
  101.                (help @copyfiles-help)
  102.                (infos)
  103.                (all)
  104.             )
  105.          )
  106.       )
  107.       (if (= 0 ans)
  108.          (
  109.             (set Src_dest
  110.                (askdir
  111.                   (prompt "Where should the source code be installed?  A "
  112.                           "drawer called \"Icon Deluxe\" will be created "
  113.                           "which will contain another drawer called "
  114.                           "Source and a copy of the executable.")
  115.                   (help ("Select a drawer where you want to install the "
  116.                          "source code"))
  117.                   (default "")
  118.                )
  119.             )
  120.             (makedir (tackon Src_dest "Icon Deluxe") (infos))
  121.             (set Src_dest (tackon Src_dest "Icon Deluxe"))
  122.             (working ("Copying source code"))
  123.             (copyfiles
  124.                (source (tackon sdir "IconDeluxe"))
  125.                (dest Src_dest)
  126.                (help @copyfiles-help)
  127.                (infos)
  128.             )
  129.             (complete 65)
  130.             (copyfiles
  131.                (source (tackon sdir "Source/"))
  132.                (dest (tackon Src_dest "Source"))
  133.                (help @copyfiles-help)
  134.                (infos)
  135.                (all)
  136.             )
  137.          )
  138.       )
  139.    )
  140. )
  141.  
  142. (complete 100)
  143.  
  144. (exit)
  145.